respond to windows and grids
'
XuiCreateWindow (@g, @"XuiDialog2B", 20, 20, 256, 128, 0, "")
XuiSendStringMessage ( g, @"SetCallback", g, &XuiQueueCallbacks(), -1, -1, $$WindowEmployee, -1)
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 0, @"Employee")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 1, @"EmployeeLabel")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 2, @"EmployeeName")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 3, @"EmployeeEnter")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 4, @"EmployeeCancel")
XuiSendStringMessage ( g, @"DisplayWindow", 0, 0, 0, 0, 0, 0)
'
XuiCreateWindow (@g, @"XuiDialog2B", 20, 172, 256, 128, 0, "")
XuiSendStringMessage ( g, @"SetCallback", g, &XuiQueueCallbacks(), -1, -1, $$WindowCompany, -1)
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 0, @"Company")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 1, @"CompanyLabel")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 2, @"CompanyName")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 3, @"CompanyEnter")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 4, @"CompanyCancel")
XuiSendStringMessage ( g, @"DisplayWindow", 0, 0, 0, 0, 0, 0)
'
XuiCreateWindow (@g, @"XuiDialog2B", 20, 324, 256, 128, 0, "")
XuiSendStringMessage ( g, @"SetCallback", g, &XuiQueueCallbacks(), -1, -1, $$WindowJob, -1)
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 0, @"Job")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 1, @"JobLabel")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 2, @"JobName")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 3, @"JobEnter")
XuiSendStringMessage ( g, @"SetGridName", 0, 0, 0, 0, 4, @"JobCancel")
XuiSendStringMessage ( g, @"DisplayWindow", 0, 0, 0, 0, 0, 0)
'
DO
XgrProcessMessages (1)
DO WHILE XuiGetNextCallback (@grid, @message$, @v0, @v1, @v2, @v3, @kid, @r1$)
GOSUB Callback
LOOP
LOOP
RETURN
'
' ***** Callback *****
'
SUB Callback
win = kid >> 16 ' win = which window is this callback from
kid = kid AND 0xFF ' kid = which kid in the window is this callback from
SELECT CASE win
CASE $$WindowEmployee : GOSUB WindowEmployee
CASE $$WindowCompany : GOSUB WindowCompany
CASE $$WindowJob : GOSUB WiddowJob
END SELECT
END SUB
'
' ***** WindowEmployee *****
'
SUB WindowEmployee
SELECT CASE r1$
CASE "EmployeeName" : READ "XuiTextLine expecting employee name"
CASE "EmployeeEnter" : READ "XuiPushButton labeled Enter"
CASE "EmployeeCancel" : READ "XuiPushButton labeled Cancel"
END SELECT
END SUB
'
' ***** WindowCompany *****
'
SUB WindowCompany
SELECT CASE r14
CASE "CompanyName" : READ "XuiTextLine expecting company name"
CASE "CompanyEnter" : READ "XuiPushButton labeled Enter"
CASE "CompanyCancel" : READ "XuiPushButton labeled Cancel"
END SELECT
END SELECT
'
' ***** WindowJob *****
'
SUB WindowJob
SELECT CASE r14
CASE "CompanyName" : READ "XuiTextLine expecting company name"
CASE "CompanyEnter" : READ "XuiPushButton labeled Enter"
CASE "CompanyCancel" : READ "XuiPushButton labeled Cancel"
END SELECT
END SUB